home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / dmap / sources_amos / dmap_routines.amos / dmap_routines.amosSourceCode
AMOS Source Code  |  1992-12-11  |  2KB  |  80 lines
  1. '*******************************************************************   
  2. '** Exemple d'utilisation des d�cors r�alis�s sous Deluxe Map 1.5 ** 
  3. '**                                                               ** 
  4. '** Auteur : Glames                                               ** 
  5. '** Date : Le 11 Janvier 1997                                     ** 
  6. '**                                                               ** 
  7. '******************************************************************* 
  8.  
  9. '* Nom du projet ï¿½ afficher
  10. NOM_PROJ$="Amos_programmes:j�rome/happymonster.prj"
  11.  
  12. '* Chargement du projet en m�moire 
  13. Gosub CHARGE_DEC
  14.  
  15. '* Ouverture ï¿½cran et affichage
  16. If RES$="Lo "
  17.    Screen Open 0,TAILLEX,TAILLEY,COULEUR,Lowres
  18. Else 
  19.    Screen Open 0,TAILLEX,TAILLEY,COULEUR,Hires
  20. End If 
  21. Get Bob Palette 
  22. Flash Off : Curs Off 
  23. Gosub AFF_ECR
  24.  
  25. '******************
  26.  
  27. '* Chargement du d�cor en m�moire  
  28.  
  29. CHARGE_DEC:
  30.  
  31. '** Ouverture du fichier Projet (*.prj)  
  32. Open In 1,NOM_PROJ$
  33. Input #1,NOM_FOND$
  34. Input #1,NOM_BANQ$
  35. Input #1,NOM_BLOC$
  36. Input #1,MEM
  37. Close 1
  38.  
  39. '** Ouverture du fichier contenant les caract�ristiques ï¿½cran (*.ecr)
  40. Open In 1,NOM_FOND$
  41. Input #1,TAILLEX
  42. Input #1,TAILLEY
  43. Input #1,COULEUR
  44. Input #1,RES$
  45. Close 1
  46.  
  47. '** Chargement de la banque de blocs (*.abk) 
  48. Load NOM_BANQ$,1
  49.  
  50. '** R�servation m�moire
  51. Erase 5
  52. Reserve As Work 5,MEM
  53. ADRDEB3#=Start(5)
  54. ADR3#=ADRDEB3#
  55. ADRFIN3#=ADRDEB3#+MEM
  56.  
  57. '** Chargement des positions en m�moire (*.blc)
  58. Bload NOM_BLOC$,ADRDEB3#
  59.  
  60. Return 
  61.  
  62. '******************
  63.  
  64. '* Affichage du d�cor (commentaires dans le fichier Dmap.doc)  
  65.  
  66. AFF_ECR:
  67. OBJ#=0 : XOBJ#=0 : YOBJ#=0
  68. ADR3#=ADRDEB3#
  69. While ADR3#<ADRFIN3#
  70.    OBJ#=Deek(ADR3#)
  71.    ADR3#=ADR3#+2
  72.    XOBJ#=Deek(ADR3#)
  73.    ADR3#=ADR3#+2
  74.    YOBJ#=Deek(ADR3#)
  75.    Paste Bob XOBJ#,YOBJ#,OBJ#
  76.    ADR3#=ADR3#+2
  77. Wend 
  78. Return 
  79.  
  80. '******************